home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / lib_show / external / JVM / example1.e next >
Encoding:
Text File  |  1998-01-16  |  1.3 KB  |  57 lines
  1. -- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C) 
  2. -- Dominique COLNET and Suzanne COLLIN -- colnet@loria.fr
  3. --
  4. class EXAMPLE1
  5.    --   
  6.    -- Some examples to call static Java function using 
  7.    -- external "JVM_invokestatic"
  8.    --
  9.  
  10. creation make
  11.    
  12. feature 
  13.    
  14.    make is
  15.       local
  16.      i: INTEGER;
  17.      r: REAL;
  18.      d: DOUBLE;
  19.       do
  20.      io.put_string("Calling java/lang/Math.max : Math.max(1,2);%N");
  21.      i := java_lang_math_max1(1,2);
  22.      io.put_string("Result = ");
  23.      io.put_integer(i);
  24.      io.put_new_line;
  25.  
  26.      io.put_string("Calling java/lang/Math.max : Math.max(1.0,2.0);%N");
  27.      r := java_lang_math_max2(1.0,2.0);
  28.      io.put_string("Result = ");
  29.      io.put_real(r);
  30.      io.put_new_line;
  31.  
  32.      io.put_string("Calling java/lang/Math.max : Math.max(1.0,2.0);%N");
  33.      d := java_lang_math_max3(1.0,2.0);
  34.      io.put_string("Result = ");
  35.      io.put_double(d);
  36.      io.put_new_line;
  37.       end;
  38.  
  39. feature {NONE}
  40.    
  41.    java_lang_math_max1(i1, i2: INTEGER): INTEGER is
  42.       external "JVM_invokestatic"
  43.       alias "java/lang/Math.max (II)I"
  44.       end;
  45.  
  46.    java_lang_math_max2(r1, r2: REAL): REAL is
  47.       external "JVM_invokestatic"
  48.       alias "java/lang/Math.max (FF)F"
  49.       end;
  50.  
  51.    java_lang_math_max3(d1, d2: DOUBLE): DOUBLE is
  52.       external "JVM_invokestatic"
  53.       alias "java/lang/Math.max (DD)D"
  54.       end;
  55.  
  56. end
  57.